0 REM****************
1 REM*              *
2 REM* CHECKSUMMER  *
3 REM* VERSION VC20 *
4 REM*              *
5 REM*  COPYRIGHT   *
6 REM* OKTOBER 1984 *
7 REM*              *
8 REM*F. LONCZEWSKI *
9 REM****************
10 PRINT"[147]  CHECKSUMMER  VC-20[146]"
11 PRINT" WRITTEN OCTOBER 1984    BY F. LONCZEWSKI"
12 PRINT"EINEN MOMENT, BITTE..."
13 FORI=827TO993:GOSUB21:POKEI,A
14 PS=PS+A+1:NEXTI
15 IFPS<>20612THENPRINT"PRUEFSUMMENFEHLER !":END
16 SYS955:PRINT"CHECKSUMMER AKTIVIERT."
17 PRINT"AN :SYS955"
18 PRINT"AUS:SYS58459, BEI CAS-    SETTE ZUSAETZLICH     RUN/STOP & RESTORE"
19 PRINT"BEI AKTIVIERTEM CHECK-SUMMER KEIN";
20 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)  ERLAUBT!":NEW
21 READA$:IFLEN(A$)<>2THENPRINT"TIPPFEHLER IN ZEILE"PEEK(63)+PEEK(64)*256:END
22 A1=ASC(A$):A2=ASC(RIGHT$(A$,1))
23 IFA1<48ORA1>57THENIFA1<65ORA1>70THEN30
24 IFA2<48ORA2>57THENIFA2<65ORA2>70THEN30
25 IFA1>64THENA1=A1-55:GOTO27
26 IFA1<58THENA1=A1-48
27 IFA2>64THENA2=A2-55:GOTO29
28 IFA2<58THENA2=A2-48
29 A=A1*16+A2:RETURN
30 PRINT"UNGUELTIGER HEXCODE IN ZEILE"PEEK(63)+PEEK(64)*256:END
31 DATA 20,5F,03,86,7A,84,7B,20
32 DATA 73,00,AA,F0,F3,A2,FF,86
33 DATA 3A,90,0A,A2,00,86,FF,20
34 DATA 79,C5,4C,E1,C7,A2,01,86
35 DATA FF,4C,9C,C4,A6,FF,E0,01
36 DATA F0,03,4C,60,C5,A0,02,A9
37 DATA 00,85,FE,B1,5F,F0,0F,C9
38 DATA 20,D0,03,C8,D0,F5,18,65
39 DATA FE,85,FE,4C,76,03,C0,04
40 DATA 30,F1,C6,D6,A5,D6,48,A2
41 DATA 03,A9,20,9D,01,04,BD,B7
42 DATA 03,20,D2,FF,CA,10,F2,A6
43 DATA FE,A9,00,20,CD,DD,A9,3E
44 DATA 20,D2,FF,68,85,D6,20,87
45 DATA E5,A9,8D,20,D2,FF,A2,00
46 DATA 86,FF,F0,AE,09,3C,12,13
47 DATA A9,3B,8D,02,03,A9,03,8D
48 DATA 03,03,A5,BA,C9,01,D0,10
49 DATA A9,74,8D,30,03,8D,32,03
50 DATA A9,C4,8D,31,03,8D,33,03
51 DATA AD,88,02,8D,90,03,60